home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pc_pad.arc / EUROPE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-08  |  3.4 KB  |  108 lines
  1. 10  ' File: EUROPE.BAS
  2. 20  '
  3. 30  '      ** NATIONS AND CAPITALS OF EUROPE **
  4. 40  '
  5. 50  FOR N=1 TO VAL(RIGHT$(TIME$,2)):X=RND:NEXT N
  6. 60  M$="     NATIONS AND CAPITALS OF EUROPE"+CHR$(13)+STRING$(40,42)
  7. 70  SCREEN 0,0,0:COLOR 7,0,0:WIDTH 40:KEY OFF:CLS:PRINT M$
  8. 80  PRINT:PRINT "This tutorial, multiple-choice program"
  9. 90  PRINT"challenges you to learn and recall the
  10. 100  PRINT"capital cities of the nations of
  11. 110  PRINT"Europe.":PRINT
  12. 120  PRINT"The program continues repeating a ques-
  13. 130  PRINT"tion as long as you are making in-
  14. 140  PRINT"correct responses. Watch the selections
  15. 150  PRINT"change somewhat with each incorrect
  16. 160  PRINT"response, however -- the changes pro-
  17. 170  PRINT"vide cluse to the correct answer.
  18. 180  LOCATE 24,1:PRINT "Strike any key to begin ...";
  19. 190  DEF SEG=0:POKE 1050,PEEK(1052)
  20. 200  K$=INKEY$:IF K$="" THEN 200
  21. 210  FOR N=1 TO VAL(RIGHT$(TIME$,2)):X=RND:NEXT N
  22. 220  SCREEN 0,0,0:COLOR 7,0,0:WIDTH 40:KEY OFF:CLS:PRINT M$
  23. 230  DIM I$(33,4)
  24. 240  FOR X=1 TO 33:READ N:FOR Y=1 TO 4:READ I$(X,Y):NEXT Y,X
  25. 250  X=INT(33*RND)+1
  26. 260  FOR N=1 TO 3:Q$(N)=I$(X,N+1):NEXT N
  27. 270  Q$(4)=I$(INT(33*RND)+1,INT(3*RND)+2)
  28. 280  FOR N=1 TO 3
  29. 290  IF Q$(4)=Q$(N) THEN 270
  30. 300  NEXT N
  31. 310  Q$(5)="None of the above"
  32. 320  CR=INT(4*RND)+1
  33. 330  FOR N=1 TO 4
  34. 340  C=0
  35. 350  R$(N)=Q$(INT(4*RND)+1)
  36. 360  C=C+1:IF C < 10 THEN 390
  37. 370  LOCATE 3,1:COLOR 23,0
  38. 380  PRINT "PLEASE WAIT ...":COLOR 7,0
  39. 390  IF N=1 THEN 430
  40. 400  FOR Y=1 TO N-1
  41. 410  IF R$(Y)=R$(N) THEN 350
  42. 420  NEXT Y
  43. 430  NEXT N
  44. 440  R$(5)=Q$(5)
  45. 450  CLS:PRINT M$
  46. 460  PRINT "Which of the following is the capital of"
  47. 470  PRINT I$(X,1)" (1-5)?"
  48. 480  PRINT 
  49. 490  FOR N=1 TO 5
  50. 500  PRINT TAB(5)N"- "R$(N)
  51. 510  NEXT N
  52. 520  PRINT
  53. 530  K$=INKEY$:IF K$="" THEN 530
  54. 540  IF K$<"1" OR K$>"5" THEN 530
  55. 550  PRINT K$
  56. 560  NT=NT+1
  57. 570  IF R$(VAL(K$))=I$(X,2) THEN 590
  58. 580  PRINT:PRINT "Sorry, that is not correct.":GOSUB 610:GOTO 260
  59. 590  PRINT:PRINT "That is correct."
  60. 600  NC=NC+1:GOSUB 610:GOTO 250
  61. 610  COLOR 0,7
  62. 620  LOCATE 17,1
  63. 630  SC=INT(100*NC/NT)
  64. 640  PRINT NC"correct out of"NT;SPC(32-POS(0))
  65. 650  PRINT
  66. 660  PRINT SPC(1)"for a score of"SC"%"SPC(32-POS(0))
  67. 670  COLOR 7,0
  68. 680  LOCATE 20,1
  69. 690  PRINT "Strike the SPACE BAR to continue (or ";
  70. 700  PRINT "the X key to end the quiz) ...";
  71. 710  K$=INKEY$:IF K$="" THEN 710
  72. 720  IF K$=CHR$(32) THEN RETURN 
  73. 730  IF K$="X" OR K$="x" THEN WIDTH 80:END
  74. 740  GOTO 710
  75. 750  DATA 1,Albania,Tirana,Durres,Viore        
  76. 760  DATA 2,Andorra,Andorra la Vella,Seo de Urgel,Puigcerda
  77. 770  DATA 3,Austria,Vienna,Liecht,Graz
  78. 780  DATA 4,Belgium,Brussels,Antwerp,Ghent
  79. 790  DATA 5,Bulgaria,Sofia,Plovdiv,Varna
  80. 800  DATA 6,Czechoslovakia,Prague,Brno,Bratislava
  81. 810  DATA 7,Denmark,Copenhagen,Arhus,Jutland Peninsula
  82. 820  DATA 8,Finland,Helsinki,Tampere,Turku
  83. 830  DATA 9,France,Paris,Marseille,Bordeaux
  84. 840  DATA 10,East Germany,East Berlin,Leipzig,Dresden
  85. 850  DATA 11,West Germany,Bonn,Berlin,Munich       
  86. 860  DATA 12,Greece,Athens,Thessaloniki,Patras
  87. 870  DATA 13,Hungry,Budapest,Miskolc,Debrecen
  88. 880  DATA 14,Iceland,Reykjavik,Siglufjordhur,Akureyri
  89. 890  DATA 15,Ireland,Dublin,Cork,Limerick
  90. 900  DATA 16,Italy,Rome,Milan,Naples
  91. 910  DATA 17,Liechtenstein,Vaduz,Schaan,Triesen
  92. 920  DATA 18,Luxembourg,Luxembourg,Esch-Sur-Alzette,Dudelange
  93. 930  DATA 19,Malta,Valletta,Sliema,Gozo
  94. 940  DATA 20,Monaco,Monaco,Monte Carlo,San Remo
  95. 950  DATA 21,Netherlands,Amsterdam,Rotterdam,Hague
  96. 960  DATA 22,Norway,Oslo,Bergen,Trondheim
  97. 970  DATA 23,Poland,Warsaw,Cracow,Poznan
  98. 980  DATA 24,Portugal,Lisbon,Oporto,Braga
  99. 990  DATA 25,Romania,Bucharest,Brasov,Constanta
  100. 1000  DATA 26,San Marino,San Marino,Cesena,Pesaro
  101. 1010  DATA 27,Spain,Madrid,Barcelona,Valencia
  102. 1020  DATA 28,Sweden,Stockholm,Gotenborg,Malmo
  103. 1030  DATA 29,Switzerland,Bern,Zurich,Geneva
  104. 1040  DATA 30,Union of Soviet Socialist Republics     (USSR),Moscow,Minsk,Leningrad
  105. 1050  DATA 31,Great Britain and Northern Ireland,London,Bristol,Liverpool
  106. 1060  DATA 32,Vatican,Vatican City,San Pedro,Bracciano
  107. 1070  DATA 33,Yugoslavia,Belgrade,Zagreb,Sarajevo
  108.